Programiranje u ILMS
Vrsta: Seminarski | Broj strana: 9 | Nivo: Rudarsko - geološki fakultet

Zadatak br. 8
Izvršena su laboratorijska ispitivanja fizičko- mehaničkih karakteristika tla na N uzoraka. Na svakom uzorku izmerena je zapreminska težina ( (kN/m3) ugao unutašnjeg trenja ( (() i kohezija c(kN/cm2). Napisati program za formiranje datoteke sa podacima merenja. Predvideti mogućnost pretraživanja i ispisa podataka po kriterijumu slobodnog izbora uzorka za koji se žele podaci.
Opis i analiza problema:
S obzirom da ce se za svako merenje unosti po 3 podatka, za cuvanje podataka koristicemo matricu koja ce biti dimenzija n x 3, gde n predstavlja broj merenja.
Korisnik ce prvo uneti broj merenja, nakon cega ce se kreirati matrica odgovarajucih dimenzija. Potom ce korisnik vrsiti unos vrednosti pojedinacnih merenja. Snimanje podataka iz matrice ce se obavljati u tekstualni fajl, tako sto ce svako merenje biti u odgovarajucem formatu i u novom redu. Za upis u fajl cemo koristit standardnu vb funkciju Print, a za citanje iz fajla funkciju Input. Svaki zapis merenja mora pocinjati sa "Merenja: n", gde je n broj merenja, iz razloga sto cemo pretragu obavljati po rednom broju merenja. Prilikom pretrage fajla, proveravacemo redni broj merenja iz svakog reda, sve dok se ne naidje na red u kome se nalazi trazeni broj merenja.
Opis algoritamskog toka:
Pokretanje programa
Ucitavanje podataka ( učitavanje merenja iz odgovarajućeg polja)
Definišemo matricu merenja
Snimanje podataka u fajl
Vršimo upis jednog merenja po jednoj liniji u fajl sa merenjima
Očitavanje linije po linije iz fajla sa merenjima. Ukoliko pronađemo liniju koja sadrži redni broj merenja prikazuje se na ekranu, u suprotnom izbacuje se poruka da merenje nije pronađeno.
Zatvaranje fajla - kraj
Programski kod:
Private Sub Command1_Click()
brojMerenja = Val(Text1.Text)
ReDim matricaMerenja(brojMerenja, 3)
For i = 1 To brojMerenja
For j = 1 To 3
If j = 1 Then
matricaMerenja(i, j) = Val(InputBox("Unesite zapreminsku tezinu gama(kN/m3)", "merenje" & Str(i)))

---------- CEO RAD MOŽETE PREUZETI NA SAJTU. ---------- 

www.maturski.org 

 

MOŽETE NAS KONTAKTIRATI NA E-MAIL: [email protected]